home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 3 / BBS in a box - Trilogy III.iso / Files / Prog / D-G / DA Skeleton 2.0 Folder / Globals.p < prev    next >
Encoding:
Text File  |  1990-06-02  |  1.1 KB  |  44 lines  |  [TEXT/PJMM]
  1. unit Globals;
  2.  
  3. interface
  4.  
  5.     type
  6.         EventPtr = ^EventRecord;            {For handling events from our ParamBlkPtr.ioMisc.}
  7.  
  8.     const
  9.         TITLE = 'DASkeleton';                {Title for our window}
  10.         MENUID = 1;                            {id for menu resource}
  11.         HIERID = 2;                            {id for heiracle menu}
  12.         ABOUTID = 1;                            {id of about dialog}
  13.         MAINWINDOW = 1;                    {id for our main window}
  14.         BUTTONID = 1;                        {id for our "Beep" button}
  15.  
  16.         hierMID = 236;                        {Menu id number for hierarcle menu. These menu id's must}
  17.                                             {be in the range from 236-255}
  18.  
  19.     var
  20.         ourMenu: MenuHandle;                    {Handle to our menu}
  21.         hierMenu: MenuHandle;                    {Handle to our hierarcle menu}
  22.         DAOpen: Boolean;                            {Was our DA opened already?}
  23.         screenBounds: Rect;                        {The screen size for centering and dragging, etc...}
  24.         theButton: ControlHandle;                {Handle to our control}
  25.         window: WindowPtr;                        {WindowPtr to our main window}
  26.         dce: DCtlPtr;                                {Device control entry pointer}
  27.  
  28.     procedure SetUpA4;
  29.     procedure RememberA4;
  30.     procedure RestoreA4;
  31.  
  32. implementation
  33.  
  34.     procedure SetUpA4;
  35.     begin
  36.     end;
  37.     procedure RememberA4;
  38.     begin
  39.     end;
  40.     procedure RestoreA4;
  41.     begin
  42.     end;
  43.  
  44. end.